home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Libris Britannia 4
/
science library(b).zip
/
science library(b)
/
PROGRAMM
/
2499.ZIP
/
EXEC.ZIP
/
EXEC.ASM
next >
Wrap
Assembly Source File
|
1988-05-17
|
477b
|
32 lines
include cmacros.inc
assumes CS,CODE
assumes DS,DATA
sBegin DATA
sEnd DATA
sBegin CODE
stackSS dw 0
stackSP dw 0
cProc Int21Function4B,<PUBLIC,FAR>,<ax,bx,cx,dx,si,di,es,ds>
parmB mode
parmD path
parmD execblock
cBegin
mov cs:[stackSS],ss ;; EXEC destroys all register. Save SS:SP.
mov cs:[stackSP],sp
mov al,mode
lds dx,path
les bx,execblock
mov ah,4bh
int 21h
mov ss,cs:[stackSS]
mov sp,cs:[stackSP]
cEnd
sEnd CODE
END